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BACKGROUND OF THE INVENTION 



FIELD OF THE INVENTION 

The present invention relates generally to a method and 
medium for inputting data, and more particularly, to a 
keyboard of constant size and shape present on the screen of 
a touch- screen style computer whenever user input may be 
desired. The keyboard display may be used by any number of 
computer software programs, including any known operating 
system in which a touch-sensitive computer display may be 
incorporated. Additionally, the present invention may be 
used in conjunction with any individual computer, network 
and/or Internet based system. 

PROBLEMS IN THE ART 

Computers with touch-screen displays, allowing a user to 
simply press on a desired location to obtain a desired input, 
have been around for some time. For example, a pen-based 
computer, such as the Fujitsu Model Point 1600, allows a user 
to press on the screen using the attached pen or other styli, 
and thereby provide user input . The use of such a pen-based 
computer allows a user to enter all necessary data without 
the need for an external keyboard, mouse or other input 
device. The use of an on-screen keyboard in such a computer 
allows a user to input data without the need for additional 
handwriting recognition software. Handwriting recognition 
software, while constantly improving, is often inaccurate and 
cumbersome. Further, such handwriting recognition software 
is often processor intensive. 



1 



EL5153flh535US 




Currently, on-screen keyboards allow a user to maximize, 
minimize, or simply remove the keyboard on the display. 
Further, the shape and size of the keyboard may be altered. 
Often, such alterations or terminations are accidental and 
returning a keyboard to a useable size and shape wastes 
valuable time. In a medical setting, for example, it is 
highly undesirable to have a care provider attempting to 
recover from an accidental keyboard alteration when the care 
provider should be attending to and recording information on 
patients. It is therefore desirable to provide an on-screen 
keyboard which is incapable of alteration or termination by a 
user . 

More and more applications are being developed for pen- 
based or touch-screen based computers. These applications 
will typically require a user to input data at a specific 
location on the screen. An on-screen keyboard may be 
necessary to provide the desired input. However, current on- 
screen keyboards may be moved by the user and therefore 
placed in undesirable locations which may block necessary 
text input fields or instructions. Further, current on- 
screen keyboard include a task bar having minimizing and 
maximizing buttons which allow a user to enlarge or reduce 
the window in which the keyboard appears. Often, such 
keyboards also include a close button which allows the user 
to terminate the keyboard. Upon pressing these buttons, many 
computer novices have difficulty launching another instance 
of the keyboard or recovering the keyboard to a usable state. 
It is therefore desirable to have an on-screen keyboard which 
is capable of permanent placement on a computer display. 

Computer programs may require input only randomly. Many 
ask for user input and then present the results. As it would 
clearly hamper the presentation of results, data or other 
information to have an on-screen keyboard present at all 
times, it is desirable to provide an on-screen keyboard which 
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may be selectively called up as a subroutine or subprogram by 
a variety of programming. 

There is therefore a need to have an on-screen keyboard 
which solves these and other problems in the art. 

FEATURES OF THE INVENTION 

A general feature of the present invention is the 
provision of an input area which overcomes the problems found 
in the prior art. 

A further feature of the present invention is the 
provision of an input area which may be used in conjunction 
with touch-sensitive displays. 

Another feature of the present invention is the 
provision of an input area which is immutable. 

A further feature of the present invention is the 
provision of an input area which may not be moved. 

A still further feature of the present invention is the 
provision of an input area which allows a user to input data 
without the need for handwriting recognition software. 

An additional feature of the present invention is the 
provision of an input area which may not be maximized. 

Another feature of the present invention is the 
provision of an input area which may not be minimized. 

A still further feature of the present invention is the 
provision of an input area which may not be removed by the 
user . 

A further feature of the present invention is the 
provision of an input area which contains a keyboard. 

Another feature of the present invention is the 
provision of an input area which may be selectively used by a 
computer program. 

A still further feature of the present invention is the 
provision of an input area which provides an easy to use and 
reliable method of inputting information into a computer 
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system regardless of the level of computer skill possessed by 
the user. 

These, as well as other features and advantages of the 
present invention will become apparent from the following 
specification and claims. 

SUMMARY OF THE INVENTION 

The present invention generally comprises an immutable 
keyboard display. In a preferred embodiment, the present 
invention includes a software application that provides a 
keyboard display which may not be minimized, maximized, 
closed, or deleted. Further, the keyboard display allows a 
user to input information as desired via a touch- screen based 
or pen based computer. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is a pictorial representation of a display of a 
pen-based computer incorporating the keyboard display of the 
present invention . 

Figure 2 is a close-up view of the keyboard display of 
the present invention. 

DETAILED DESCRIPTION OF THE EMBODIMENT 

The present invention will be described as it applies to 
its preferred embodiment. It is not intended that the 
present invention be limited to the described embodiment. It 
is intended that the invention cover all modifications and 
alternatives which may be included within the spirit and 
scope of the invention. 

As shown in Figure 1 , a pen-based computer 10, such as 
the Fujitsu Model Point 1600, includes a touch-sensitive 
display 12. On the display 12 is shown the user interface 
for a software application 14 which may be running from or 
accessed by the computer 10. It is to be understood that the 
computer 10 could be a stand-alone computer or a part of any 
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network or Internet based system. However, the computer 10 
preferably provides a 32 bit environment. Computer 10 may 
access any type of software application through any number of 
known drives or via a network or web server. Once accessed, 
the user will see the application as it appears on the 
display 12 of the computer 10. The application may ask for 
user input at various locations through the use -of* text boxes 
16 or other fields. The user may provide the desired input 
by holding the pen 18 or any other known input device which 
may include the user's finger, and pressing on the display 12 
of the computer 10 so as to strike a desired key 22 of the 
keyboard 2 0 . 

The keyboard 2 0 is preferably an image map or active map 
incorporated at a set location on the display 12. The 
keyboard 2 0 may not be moved, maximized, or minimized. 
Therefore, the keyboard 2 0 provides the user with a constant 
input area to which the user may become accustomed and 
becomes an integral component. 

The keyboard 20, as shown in Figure 2, contains a 
plurality of keys 22. The keys 22 may include all those 
currently found on any standard typewriter or computer 
keyboard, or may be application-specific. For instance, if 
the software in which user input is desired is primarily, 
financial software, the keyboard 20 may include only numbers. 
Further, if the software requires the user to input names or 
words, the keyboard 20 may include one key 22 for every 
letter of the alphabet and any necessary punctuation or 
function keys. Further, the keys 22 may be programmed to 
represent any symbol or accentuated letter to allow the 
keyboard to be used in applications in which input may be 
required in various languages. 

The keyboard 2 0 is preferably the result of a software 
application written in Visual Basic or C++, though various 
software programming languages may be used. The keyboard has 
all task bars removed and may not be minimized, maximized, 
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deleted, closed or resized and is therefore immutable. 
Preferably, the keyboard application is a subroutine or 
subprogram which is made available for use by external 
software applications. The keyboard application is 
preferably part of the operating system running on the 
computer 10. Incorporating the keyboard application into the 
computer 10 allows the keyboard application to be available 
to any external software application capable of running on 
the computer 10. The keyboard application may include a 
dynamic link library (dll) application. The dll application 
allows the external software to selectively use the keyboard 
and either have the keyboard in or out. This allows the 
software to use the entirety of the screen when necessary for 
displaying information or results. 

An example of the keyboard application programming as it 
would appear in Visual Basic is: 

Option Explicit 

Public Sub Shift_Down() 

cmdLef tShif t .Caption = "Lowercase" 

cmdRight Shift .Caption = "LowerCase" 

cmdLef tShift .Tag = "OFF" 
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End Sub 

Public Sub Shift_Up() 

cmdLeftShift .Caption = "Uppercase" 

cmdRightShift .Caption = "Uppercase" 

cmdLeftShift .Tag = "ON" 

cmdRightShift .Tag = "ON" 
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End Sub 

Public Sub Caps_On() 
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Public Sub Caps_OFF() 
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End Sub 

Public Sub Set_Caps_Lock () 

If cmdCapsLock . Tag = "OFF" Then 

cmdCapsLock. Caption = "Caps On 11 
cmdCapsLock. Tag = "ON" 
Caps_On 

Else 

cmdCapsLock. Caption = "Caps Off" 
cmdCapsLock. Tag = "OFF" 
Caps_OFF 
End If 
strKeys = " " 

strKeys = strKeys & "{CAPSLOCK}" 
S e ndVKey s ( s t r Key s ) 

End Sub 

Public Sub Key__Layoutl () 

Dim intTemp, intRightBorder As Integer 
Dim IngPcnt As Double 
Dim dblFontSize As Double 
Dim IngFormWidth As Long 

Dim intRowlTop, intRow2Top, intRow3Top, intRow4Top, 
intRowSTop, intRow6Top, intRow7Top As Integer 
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Dim intFontSize, intHeight, intLetterWidth, 
intFunctionWidth As Integer 

IngFormWidth = frmKeys . Width 
If frmKeys .BorderStyle > 0 Then 
IngPcnt = IngFormWidth / 7135 
Else 

IngPcnt = IngFormWidth / 6975 
End If 

IngPcnt = IngFormWidth / 6 975 
'pKB. Height = 2790 * IngPcnt 
1 pKB . Height = (33 90 * IngPcnt) 
LntHeight =33 0 * IngPcnt 
.ntLetterWidth = 350 * IngPcnt 
.ntFunctionWidth = 470 * IngPcnt 
.ntTemp = intFunctionWidth / 24 
intFunctionWidth = (intTemp +1) * 24 
intFontSize = 9 * IngPcnt 
dblFontSize = 8 * IngPcnt 

intRowlTop = 60 * IngPcnt 
intRow2Top = 54 0 * IngPcnt 
intRow3Top = 960 * IngPcnt 
intRow4Top = 13 80 * IngPcnt 
intRowSTop = 18 60 * IngPcnt 
intRow6Top = 234 0 * IngPcnt 
intRow7Top = 2 82 0 * IngPcnt 

•Set the form height to porportion with form width 
If frmKeys .BorderStyle > 0 Then 

frmKeys .Height = intRow6Top + intHeight + 4 65 
Else 

frmKeys .Height = intRow6Top + intHeight + 60 
End If 
' Row 1 
■ Escape Key 

cmdEscape . Font . Size = dblFontSize 
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cmdEscape . Top = intRowlTop 
cmdEscape.Left = 60 * IngPcnt 
cmdEscape . Width = 67 0 * IngPcnt 
cmdEscape . Height = intHeight 
' Fl Key 

Font. Size = intFontSize 
Top = intRowlTop 
Left = 805 * IngPcnt 
Width = intFunctionWidth 
Height = intHeight 
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.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 
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.Left = Commandl (49) .Left + 

! 1765 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (50) .Left + 

! 2245 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = 2 905 * IngPcnt 
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Comma ndl ( 52 
Commandl ( 52 
'F6 Key 
Commandl (53 
Commandl ( 53 
Commandl (53 

Commandl (52 ) .Width 
Commandl (53 
Commandl (53 
' F7 Key 
Commandl (54 
Commandl (54 
Commandl (54 

Commandl (53) .Width 
Commandl (54 
Commandl (54 
'F8 Key 
Commandl (55 
Commandl ( 55 
Commandl (55 

Commandl (54) .Width 
Commandl (55 
Commandl (55 
'F9 Key 
Commandl (56 
Commandl (56 
Commandl (56 
Commandl (56 
Commandl (56 
'F10 Key 
Commandl (57 
Commandl (57 
Commandl (57 

Commandl (56) .Width 
Commandl (57) 



.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (52) .Left + 

'3385 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

. Top = intRowlTop 

.Left = Commandl (53) .Left + 

'3 865 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (54) .Left + 

'4345 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRowlTop 
.Left = 5005 * IngPcnt 
.Width = intFunctionWidth 
.Height = intHeight 

.Font. Size = dblFontSize 

.Top = intRowlTop 

.Left = Commandl (56) . Left + 

■5485 * IngPcnt 

.Width = intFunctionWidth 
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Commandl ( 57) . Height = intHeight 
■ Fll Key 

Commandl (58) .Font. Size = dblFontSize 
Commandl (58) . Top = intRowlTop 
Commandl (58) . Left = Commandl ( 57) . Left + 
Commandl (57) .Width f 5965 * IngPcnt 

Commandl (58) .Width = intFunct ionWidth 
Commandl (58) .Height = intHeight 
1 F12 Key 

Commandl (59) . Font . Size = dblFontSize 
Commandl (59) .Top = intRowlTop 
Commandl (59) .Left = Commandl (58) .Left + 
Commandl (58) .Width "6445 * IngPcnt 

Commandl (59) .Width = intFunct ionWidth 
Commandl (59) .Height = intHeight 

intRightBorder = Commandl (59) . Left + Commandl (59) . Width 



1 Row 2 




■ • Key 




Commandl 


(45 


Commandl 


(45 


Commandl 


(45 


Commandl 


(45 


Commandl 


(45 



intRow2Top 
= 60 * IngPcnt 



'1 Key 

Commandl (27) . Font . Size = intFontSize 
Commandl (27) .Top = intRow2Top 
Commandl (27) .Left = 480 * IngPcnt 
Commandl (27) .Width = intLetterWidth 
Commandl (27) .Height = intHeight 

! 2 Key 

Commandl (28) .Font. Size = intFontSize 

Commandl (28) . Top = intRow2Top 
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Command 1 (2 8 
Commandl (2 8 
Commandl (2 8 

■ 3 Key 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 
Commandl (2 9 

*4 Key 
Commandl (30 
Commandl (30 
Commandl (30 
Commandl (3 0 
Commandl (30 

• 5 Key 
Commandl (31 
Commandl (31 
Commandl (31 
Commandl (31 
Commandl (31 

'6 Key 
Commandl (32 
Commandl (32 
Commandl (32 
Commandl (32 
Commandl (32 

' & Key 
Commandl (33 
Commandl (33 



.Left = 900 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 1320 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 1740 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2160 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2580 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRow2Top 
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Commandl (33 
Commandl (33 
Commandl (33 

'7 Key 
Commandl (44 
Commandl (44 
Commandl (44 
Commandl (44 
Commandl (44 

■ 8 Key 
Commandl (34 
Commandl (34 
Commandl (34 
Commandl (34 
Commandl (34 

' 9 Key 
Commandl (35 
Commandl (35 
Commandl (35 
Commandl (35 
Commandl ( 3 5 

' 0 Key 
Commandl (26 
Commandl (26 
Commandl (2 6 
Commandl (26 
Commandl (26 

1 - Key 
Commandl (46 
Commandl (46 



.Left = 3000 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3000 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3420 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
. Top = i n t Ro w2 Top 
.Left = 3840 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left - 4260 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 

.Top = intRow2Top 
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Commandl (46) . Lef t = 4680 * IngPcnt 
Commandl (46) .Width = intLetterWidth 
Commandl (46) .Height = intHeight 

' = Ke y 

Commandl (4 7) .Font. Size = int Font Size 
Commandl (47) .Top = intRow2Top 
Commandl (47) .Lef t = 5100 * IngPcnt 
Commandl (47) .Width = intLetterWidth 
Commandl (47) .Height = intHeight 

' Backspace Key 

cmdBackspace . Font . Size = dblFontSize 
cmdBackspace . Top = intRow2Top 
cmdBackspace . Lef t = 5520 * IngPcnt 

cmdBackspace .Width = intRightBorder - cmdBackspace . Lef t 
cmdBackspace .Height = intHeight 

'Row 3 
' TAB Key 

cmdTab. Font . Size = dblFontSize 
cmdTab.Top = intRow3Top 
cmdTab. Left = 60 * IngPcnt 
cmdTab. Width =6 50 * IngPcnt 
cmdTab. Height = intHeight 

' Q Key 

Commandl (16) .Font. Size = intFontSize 
Commandl (16) .Top = intRow3Top 
Commandl (16) . Lef t = 780 * IngPcnt 
Commandl (16) .Width = intLetterWidth 
Commandl (16) .Height = intHeight 

' W Key 

Commandl (22) .Font. Size = intFontSize 
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Commandl 


(22) 


.Top = 


Commandl 


(22) 


.Left = 


Commandl 


(22) 


.Width 


Commandl 


(22) 


.Height 


1 E Key 






Commandl 


(4 ) 


Font Si 


Commandl 


(4) . 


Top = i 


Commandl 


(4) . 


Left = 


Commandl 


(4) . 


Width = 


Commandl 


(4) . 


Height 


'R Key 






Commandl 


(17) 


. Font . S 


Commandl 


(17) 


.Top = 


Commandl 


(17) 


.Left = 


Commandl 


(17) 


.Width 


Commandl 


(17) 


. Height 


'T Key 








(19) 


Font S 


Commandl 


(19) 


.Top = 


Commandl 


(19) 


-Left = 


Commandl 


(19) 


.Width 


Commandl 


(19) 


•Height 


' Y Key 






Commandl 


(24) 


. Font . S 


Commandl 


(24) 


.Top = 


Commandl 


(24) 


.Left = 


Commandl 


(24) 


.Width 


Commandl 


(24) 


. Height 




intRow3Top 

1200 * IngPcnt 
= intLetterWidth 

= intHeight 

ze = intFontSize 

ntRow3Top 

162C * IngPcnt 

intLetterWidth 
= intHeight 

ize = intFontSize 
intRow3Top 

2 04 0 * IngPcnt 
= intLetterWidth 

= intHeight 

ize = intFontSize 
intRow3Top 

2460 * IngPcnt 
= intLetterWidth 

= intHeight 

ize = intFontSize 
intRow3Top 

2 88 0 * IngPcnt 
= intLetterWidth 

= intHeight 



'U Key 
Commandl 



(20) 



.Font. Size = intFontSize 
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Command 1 


(20) 


. Top = 


intRow3Top 


Command 1 


(20) 


.Left = 


3 3 00 * IngPcnt 


Commandl 


(20) 


.Width 


= intLetterWidth 


Commandl 


(20) 


.Height 


= intHeight 


' I Key 








Command 1 


(8) 


Font. Size = intFontSize 


Commandl 


(8) . 


Top = intRow3Top 


Commandl 


(8) . 


Left = 


3 72 0 * IngPcnt 


Commandl 


(8) . 


Width = 


intLetterWidth 


Commandl 


(8) . 


Height 


= intHeight 


f O Key 










(14) 


.Font. Size = intFontSize 


Commandl 


(14) 


.Top = 


intRow3Top 


Commandl 


(14) 


.Left = 


4140 * IngPcnt 


Commandl 


(14) 


.Width 


= intLetterWidth 


Commandl 


(14) 


. Height 


= intHeight 


' P Key 








Commandl 


(15) 

\ J ' / 


. Font . S 


ize = intFontSize 


Commandl 


(15) 


. Top = 


intRow3Top 


Commandl 


(15) 


.Left = 


4560 * IngPcnt 


Commandl 


(15) 


.Width 


= intLetterWidth 


Commandl 


(15) 


. Height 


= intHeight 


■ [ Key 








Commandl 


(41) 


. Font . S 


ize = intFontSize 


Commandl 


(41) 


.Top = 


intRow3Top 


Commandl 


(41) 


.Left - 


4 98 0 * IngPcnt 


Commandl 


(41) 


.Width 


= intLetterWidth 


Commandl 


(41) 


.Height 


= intHeight 



' ] Key 
Commandl 



(42) 



Font. Size = intFontSize 
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Commandl (42) .Top = intRow3Top 
Commandl (42) .Lef t = 5400 * IngPcnt 
Commandl (42) .Width = intLetterWidth 
Commandl (42) .Height = intHeight 

'\ Key 

Commandl (43) .Font. Size = intFontSize 
Commandl (43 ). Top = intRow3Top 
Commandl (43 ). Lef t = 5820 * IngPcnt 
Commandl (43) .Width = intLetterWidth 
Commandl (43) .Height = intHeight 

■ Delete 

cmdDelete . Font . Size = dblFontSize 
cmdDelete . Top = intRow3Top 
cmdDelete . Lef t = 6240 * IngPcnt 

cmdDelete .Width = intRightBorder - cmdDelete . Lef t 
cmdDelete . Height = intHeight 



'Row 4 

1 Caps Lock Key 
cmdCapsLock . Font . S 
cmdCapsLock . Top = 
cmdCapsLock . Left = 
cmdCapsLock . Width 
cmdCapsLock . He ight 

'A Key 

Commandl ( 0 ) . Font . S 
Commandl (0) .Top = 
Commandl (0) .Lef t = 
Commandl (0) .Width 
Commandl (0) .Height 



ize = dblFontSize 
intRow4Top 

60 * IngPcnt 
= 107 0 * IngPcnt 

= intHeight 

ize = intFontSize 
intRow4Top 

1200 * IngPcnt 
= intLetterWidth 

= intHeight 
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■ S Key 

Commandl (18) .Font. Size = intFontSize 
Commandl (18) . Top = intRow4Top 
Commandl (18) . Left = 1620 * IngPcnt 
Commandl (18) .Width = intLetterWidth 
Commandl (18) .Height = intHeight 



' D Key 

Commandl (3) .Font. Size = intFontSize 
Commandl (3) .Top = intRow4Top 
Commandl (3) .Left = 2040 * IngPcnt 
Commandl (3) .Width = intLetterWidth 
Commandl (3) .Height = intHeight 



* F Key 

Commandl (5) .Font. Size = intFontSize 
Commandl (5) . Top = intRow4Top 
Commandl (5) . Left = 2460 * IngPcnt 
Commandl (5) .Width = intLetterWidth 
Commandl (5) .Height = intHeight 



' G Key 

Commandl (6) .Font. Size = intFontSize 
Commandl (6) . Top = intRow4Top 
Commandl (6) .Left = 2880 * IngPcnt 
Commandl (6) .Width = intLetterWidth 
Commandl (6) .Height = intHeight 



■H Key 

Commandl (7) .Font. Size = intFontSize 
Commandl (7) .Top = intRow4Top 
Commandl (7) . Left = 3300 * IngPcnt 
Commandl (7) .Width = intLetterWidth 
Commandl (7) . Height = intHeight 



' J Key 

Commandl (9) .Font. Size = intFontSize 
Commandl (9) . Top = intRow4Top 
Commandl (9) .Left = 3720 * IngPcnt 
Commandl (9) .Width = intLetterWidth 
Commandl (9) .Height = intHeight 

'K Key 

Commandl (10) . Font . Size = intFontSize 
Commandl (10) . Top = intRow4Top 
Commandl (10) . Left = 4140 * IngPcnt 
Commandl (10) .Width = intLetterWidth 
Commandl (10) .Height = intHeight 

•L Key 

Commandl (11) .Font. Size = intFontSize 
Commandl (11) . Top = intRow4Top 
Commandl (11) . Left = 4560 * IngPcnt 
Commandl (11) .Width = intLetterWidth 
Commandl (11) .Height = intHeight 

' ; Key 

Commandl (39) . Font . Size = intFontSize 
Commandl (3 9) .Top = intRow4Top 
Commandl (39) . Left = 4980 * IngPcnt 
Commandl (3 9) .Width = intLetterWidth 
Commandl (39) .Height = intHeight 

■ " Key 

Commandl (4 0) .Font. Size = intFontSize 
Commandl (40) .Top = intRow4Top 
Commandl (40) . Left = 5400 * IngPcnt 
Commandl (40) .Width = intLetterWidth 
Commandl (40) .Height = intHeight 
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' Enter 

cmdEnter. Font . Size = dblFontSize 
cmdEnter . Top = intRow4Top 
cmdEnter .Left = 5820 * IngPcnt 

cmdEnter .Width = intRightBorder - cmdEnter . Left 
cmdEnter . Height = intHeight 

'Row 5 

'Left Shift Key 

cmdLeftShif t . Font . Size = dblFontSize 
cmdLef tShif t . Top = intRowSTop 
cmdLeftShif t .Left = 60 * IngPcnt 
cmdLef tShift .Width = 1293 * IngPcnt 
cmdLef tShift .Height = intHeight 

' Z Key 

Commandl(25) .Font. Size = intFontSize 
Commandl (25) .Top = intRowSTop 
Commandl (25) .Lef t = 1423 * IngPcnt 
Commandl (25) .Width = intLetterWidth 
Commandl (25) .Height = intHeight 

'X Key 

Commandl (23) .Font. Size = intFontSize 
Commandl (23) .Top = intRowSTop 
Commandl (23) .Lef t = 1843 * IngPcnt 
Commandl (23) .Width = intLetterWidth 
Commandl (23) .Height = intHeight 

' C Key 

Commandl (2) .Font. Size = intFontSize 

Commandl (2) . Top = intRowSTop 

Commandl (2) . Lef t = 2263 * IngPcnt 

27 




Commandl (2) . Width = intLetterWidth 
Commandl (2) .Height = intHeight 

'V Key 

Commandl (21) .Font. Size = intFontSize 
Commandl (21) .Top = intRowSTop 
Commandl (21) .Left = 2683 * IngPcnt 
Commandl (21) .Width = intLetterWidth 
Commandl (21) .Height = intHeight 

' B Key 

Commandl (1) .Font. Size = intFontSize 
Commandl (1) .Top = intRowSTop 
Commandl (1) .Left = 3103 * IngPcnt 
Commandl (1) .Width = intLetterWidth 
Commandl (1) .Height = intHeight 

f N Key 

Commandl (13) .Font. Size = intFontSize 
Commandl (13) .Top = intRowSTop 
Commandl (13) .Left = 3523 * IngPcnt 
Commandl (13) .Width = intLetterWidth 
Commandl (13) .Height = intHeight 

•M Key 

Commandl (12) .Font. Size = intFontSize 
Commandl (12) .Top = intRowSTop 
Commandl (12) .Left = 3943 * IngPcnt 
Commandl (12) .Width = intLetterWidth 
Commandl (12) .Height = intHeight 

' , Key 

Commandl (36) .Font. Size = intFontSize 

Commandl (36) .Top = intRowSTop 

Commandl (36) .Left = 4363 * IngPcnt 
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Commandl (36) .Width = intLetterWidth 
Commandl (36) .Height = intHeight 

' . Key 

Commandl (37) . Font . Size = intFontSize 
Commandl (37) .Top = intRowSTop 
Commandl (37) .Left = 4783 * IngPcnt 
Commandl (37) .Width = intLetterWidth 
Commandl (37) .Height = intHeight 

■/ Key 

Commandl (38) .Font. Size = intFontSize 
Commandl (38) .Top = intRowSTop 
Commandl (38) .Left = 5203 * IngPcnt 
Commandl (38) .Width = intLetterWidth 
Commandl (38) .Height = intHeight 

■Right Shift Key 

cmdRightShift . Font . Size = dblFontSize 
cmdRightShif t . Top = intRowSTop 
cmdRightShift .Left = 5623 * IngPcnt 
cmdRightShif t .Width = intRightBorder - 
cmdRightShift . Left 

cmdRightShif t .Height = intHeight 

'Row 6 

'Left Ctrl Key 

cmdCntrl . Font . Size = dblFontSize 
cmdCntrl.Top = intRow6Top 
cmdCntrl . Left = 60 * IngPcnt 
cmdCntrl .Width = 795 * IngPcnt 
cmdCntrl . Height = intHeight 

•Left Alt Key 

cmdAlt . Font . Size = dblFontSize 
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cmdAlt.Top = intRow6Top 
cmdAlt.Left = 925 * IngPcnt 
cmdAlt. Width = 735 * IngPcnt 
cmdAlt .Height = intHeight 

■Move Left Key 

cmdMoveLef t . Font .Size = intFontSize 
cmdMoveLef t . Top = intRow6Top 
cmdMoveLef t . Left = 173 0 * IngPcnt 
cmdMoveLef t .Width = 465 * IngPcnt 
cmdMoveLef t . Height = intHeight 

' Space Bar Key 

cmdSpaceBar . Font . Size = intFontSize 
cmdSpaceBar .Top = intRowSTop 
cmdSpaceBar .Left = 22 65 * IngPcnt 
cmdSpaceBar .Width = 2445 * IngPcnt 
cmdSpaceBar .Height = intHeight 

'Move Right Key 

cmdMoveRight . Font .Size = intFontSize 
cmdMoveRight . Top = intRow6Top 
cmdMoveRight . Left = 4780 * IngPcnt 
cmdMoveRight .Width =465 * IngPcnt 
cmdMoveRight .Height = intHeight 

'Right Alt Key 

cmdAlt2 . Font . Size = dblFontSize 
cmdAlt2.Top = intRow6Top 
cmdAlt2.Left = 5315 * IngPcnt 
cmdAlt2 .Width = 735 * IngPcnt 
cmdAlt2 .Height = intHeight 

1 Right Ctrl Key 

cmdCntrl2 . Font . Size = dblFontSize 





cmdCntrl2 .Top 



intRow6Top 

6120 * IngPcnt 
= intRightBorder - cmdCntrl2 . Lef t 



cmdCntrl2 .Left 



cmdCntrl2 . Widt 



h 



cmdCntrl2 .Height = intHeight 
'Exit Keyboard 

cmdExit Keyboard. Font .Size = dblFontSize 
cmdExit Keyboard. Top = intRow7Top 
cmdExi t Keyboard. Lef t = 6 0 * IngPcnt 
cmdExitKeyboard. Width = 6915 * IngPcnt 
cmdExit Keyboard . Height = intHeight 

End Sub 

Private Sub cmdAlt__Click ( ) 

If cmdAlt.Tag = "OFF" Then 

cmdAlt.Tag = "ON" 

cmdAlt . Caption = "Alt On" 

cmdAl 1 2 . Tag = " ON " 

cmdAlt2 . Caption = "Alt On" 
Else 

cmdAlt.Tag = "OFF" 
cmdAlt . Caption = "Alt Off" 
cmdAlt2.Tag = "OFF" 
cmdAlt2 .Caption = "Alt Off" 
End If 
End Sub 

Private Sub cmdAlt2_Click ( ) 

cmdAlt_Click 
End Sub 

Private Sub cmdBackspace_Click ( ) 
strKeys = "{BKSP}" 
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SendVKeys (strKeys ) 
End Sub 

Private Sub cmdCnt rl_Click ( ) 

If cmdCntrl .Tag = "OFF" Then 
cmdCntrl. Tag = "ON" 
cmdCntrl .Caption = "Ctrl On" 
cmdCntrl 2 .Tag = "ON" 
cmdCntrl 2 .Caption = "Ctrl On" 
Else 

cmdCnt r 1 . Tag = "OFF " 
cmdCntrl .Caption = "Ctrl Off" 
cmdCntrl 2 .Tag = "OFF" 
cmdCntrl 2 .Caption = "Ctrl Off" 
End If 
End Sub 

Private Sub cmdCntrl2_Click ( ) 

cmdCnt rl_Cl i ck 
End Sub 

Private Sub cmdDelete__Click ( ) 
strKeys = " " 

strKeys = strKeys & "{DEL}" 
SendVKeys ( strKeys ) 
End Sub 

Private Sub cmdEnter_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{ENTER}" 
SendVKeys (strKeys) 

End Sub 
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Private Sub cmdEscape_Click ( ) 

strKeys = " {ESC}" 

SendVKeys (strKeys) 
End Sub 

Private Sub cmdExitKeyboard_Click ( ) 
End 

End Sub 

Private Sub cmdLef tShif t_Click ( ) 

If cmdLef tShift .Tag = "OFF" Then 

If cmdCapsLock . Tag = "OFF" Then 

Shif tJJp 
Else 

Set_Caps_Lock 
Shif t_Up 
End If 

Else 

Shif t_Down 
End If 
End Sub 

Private Sub cmdMoveLef t_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{LEFT}" 
SendVKeys (strKeys ) 

End Sub 

Private Sub cmdMoveRight_Click ( ) 
strKeys = "" 

strKeys = strKeys & "{RIGHT}" 
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SendVKeys ( strKeys ) 
End Sub 

Private Sub cmdRightShif t_Click ( ) 

cmdLef t Shifted ick 
End Sub 

Private Sub cmdSpaceBar__Click ( ) 
strKeys = " » 

strKeys = strKeys & " " 
SendVKeys ( strKeys ) 

End Sub 

Private Sub cmdTab_Click ( ) 
strKeys = " " 

If cmdLef tShift .Tag = " ON M Then 

strKeys = strKeys & "+" 
End If 

strKeys = strKeys & "{TAB}' 1 
SendVKeys (strKeys) 
End Sub 

Private Sub Form_Activate ( ) 
Dim dl& 

' KeyboardWindow = Ge t For egroundW indow 

dl& = SetWindowPos (hwnd, -1, 4905, 7965, 6975, 2475, &H1 
Or &H2) 

End Sub 

Private Sub Form_GotFocus ( ) 
If Me . Windows tate <> 0 Then 
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Me . WindowState = 0 

•Me. Width - 7000 
End If 
End Sub 

Private Sub Form_Resize() 
If Me . WindowState <> 0 Then 

Me . WindowState = 0 

Me. Width = 7000 
End If 
Key_Layout 1 
End Sub 



Private Sub cmdCapsLock_Click ( ) 

1 Caps Lock Key 

If cmdCapsLock. Tag = "OFF" Then 

cmdCapsLock. Caption = "Caps On" 
cmdCapsLock.Tag = "ON" 
Caps_On 

Else 

cmdCapsLock. Caption = "Caps Off 
cmdCapsLock.Tag = "OFF" 
Caps_OFF 
End If 
strKeys = " " 

strKeys = strKeys & "{CAPSLOCK}" 
S endVKey s ( s t r Key s ) 
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End Sub 

Private Sub Commandl_Click ( Index As Integer) 
strKeys = " " 

If cmdCapsLock. Tag = "ON" Then 

strKeys = strKeys & " {CAPSLOCK} " 
End If 

If cmdLef tShif t .Tag = "ON" Then 

strKeys = strKeys & "+" 
End If 

If cmdAlt.Tag = "ON" Then 

strKeys = strKeys & "%" 
End If 

If cmdCntrl.Tag = "ON" Then 

strKeys = strKeys & 
End If 

strKeys = strKeys & Commandl ( Index) . Tag 
S e ndVKey s ( s t r Key s ) 

End Sub 

Private Sub Form_Load ( ) 
Dim hSysMenu As Long 
Dim nCnt As Long 

'First, show the form 
Me . Show 

'Get handle to our form's system menu 
'(Restore, Maximize, Move, close etc.) 
hSysMenu = GetSystemMenu (Me . hwnd, False) 

If hSysMenu Then 

'Get System menu's menu count 
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nCnt = GetMenuI temCount (hSysMenu) 
If nCnt Then 

'Menu count is based on 0 (0, 1, 2, 3...) 

RemoveMenu hSysMenu, nCnt - 1, _ 
MF_BYPOSITION Or MF_REMOVE 

RemoveMenu hSysMenu, nCnt - 2, _ 

MF_BYPOSITION Or MF_REMOVE 'Remove the seperator 
DrawMenuBar Me . hwnd 

•Force caption bar's refresh. Disabling X button 

Me. Caption = "GeniSus Keyboard" 
End If 
End If 

Shif tJDown 

Hook 

#If Current ProcOnly = 1 Then 

Forml . Show 
#End If 

DeactivateClose 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

UnHook 
End Sub 

Public Sub DeactivateClose () 



End Sub 



An example of an accompanying dynamic link library, .dl 
application, through which external applications may access 
the keyboard application is: 

// vKeyHook.cpp : Defines the entry point for the DLL 
application. 

// 

#include <windows . h> 
#include <winuser . h> 

#pragma data_seg ( " . SHARD ATA 11 ) 

static int hWndActive = 0 ; 

static int hWndSelf = 0; 

static HHOOK hHook = 0; 
#pragma data_seg ( ) 

BOOL API ENTRY DllMain( HANDLE hModule, 

DWORD ul_ reason_f or_call , 
LPVOID lpReserved 
) 

{ 

switch (ul_reason_f or_call ) 
{ 

case DLL_PROCESS_ATTACH : 
case DLLJTHREAD_ATTACH : 
case DLLJTHREADJDETACH : 
case DLL_PROCESS_DETACH : 
break; 

} 

return TRUE; 

} 
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long CALLBACK CBTProc ( 

int nCode, // hook code 

WPARAM wParam, // current -process flag 

LP ARAM lParam // message data 

) 
{ 

if (nCode == HCBT_ACTIVATE 

(int)wParam i= hWndSelf) { 
hWndActive = (int ) wParam; 

} 

return CallNextHookEx (hHook, nCode, wParam, lParam) ,- 



void stdcall HookMsg(int hWnd) 

{ 

HINSTANCE hModule; 

hModule = GetModuleHandle ( "vKeyHook . dll " ) ; 

hHook = SetWindowsHookEx(WH_CBT, CBTProc, hModule, 0) ; 

hWndSelf = hWnd; 

} 

void stdcall UnHookMsg ( ) 

{ 

UnhookWindowsHookEx (hHook) ; 

} 

int stdcall GetAct iveWnd ( ) 

{ 

return hWndActive; 

These codes are preferably executed in conjunction with 
a Windows 98® operating system. These codes may be executed 
in any type of system, including, but not limited to, a web 
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based system, a computer network, or any personal computer, 
personal digital assistant or other device. 

As can clearly be seen in Figures 1 and 2, there are no 
minimizing, maximizing, or close options available for the 
user. Therefore, a user can input data by selecting keys 22 
on the keyboard 2 0 as necessary. 

A general description of the present invention as well 
as a preferred embodiment of the present invention has been 
set forth above. Those skilled in the art to which the 
present invention pertains will recognize and be able to 
practice additional variations in the methods and systems 
described which fall within the teachings of this invention. 
Accordingly, all such modifications and additions are deemed 
to be within the scope of the invention which is to be 
limited only by the claims appended hereto. 
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